home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / util / misc / RHelfer.lha / RHelferV2.10 / Install < prev    next >
Text File  |  1999-01-04  |  4KB  |  137 lines
  1. ;Installationsskript für "Rätselhelfer V2.10" (31.10.1998)
  2. ;Namen festlegen
  3. (SET #progname "Rätselhelfer V2.10 (Programm)")
  4. (SET #progfile "Rätselhelfer")
  5. (SET #dokname "Dokumentation im ASCII-Format")
  6. (SET #dokfile "LiesMichZuerst.dok")
  7. (SET #guidename "Dokumentation im AmigaGuide-Format")
  8. (SET #guidefile "LiesMichZuerst.guide")
  9. (SET #abkname "Abkürzungsliste im ASCII-Format")
  10. (SET #abkfile "Abkürzungen.txt")
  11. (SET #demoname "Demo.brain (enthält 5000 Begriffe)")
  12. (SET #demofile "Demo.brain")
  13. (SET #keyname "Keyfile (wird für Vollversion benötigt)")
  14. (SET #keyfile "Rätsel.key")
  15. (SET #brainname "Rätsel.brain (Vollversion)")
  16. (SET #brainfile "Rätsel.brain")
  17. (SET #muster "")
  18.  
  19. ;Zielverzeichnis festlegen
  20. (SET @default-dest
  21.   (ASKDIR
  22.     (PROMPT  "Bitte Zielverzeichnis auswählen.\nEs wird kein neues Unterverzeichnis erzeugt.")
  23.     (HELP    @askdir-help)
  24.     (DEFAULT @default-dest)
  25.   )
  26. )
  27.  
  28. ;Dateien auswählen
  29. (SET #parts
  30.   (ASKOPTIONS
  31.     (PROMPT "Welche Dateien sollen installiert werden?")
  32.     (HELP @askoptions-help)
  33.     (IF (= (EXISTS #keyfile) 1)
  34.       (CHOICES #progname #dokname #guidename #abkname #demoname #keyname #brainname)
  35.       (CHOICES #progname #dokname #guidename #abkname #demoname)
  36.     )
  37.   )
  38. )
  39.  
  40. ;Dateigrößen aufsummieren und Dateimuster zusammensetzen
  41. (IF (IN #parts 0)
  42.   (
  43.     (SET #alles (+ #alles (+ (GETSIZE #progfile) (GETSIZE (CAT #progfile ".info")))))
  44.     (SET #muster (CAT #progfile "|" #progfile ".info"))
  45.   )
  46. )
  47. (IF (IN #parts 1)
  48.   (
  49.     (SET #alles (+ #alles (+ (GETSIZE #dokfile) (GETSIZE (CAT #dokfile ".info")))))
  50.     (IF (#muster)
  51.       (SET #muster (CAT #muster "|"))
  52.     )
  53.     (SET #muster (CAT #muster #dokfile "|" #dokfile ".info"))
  54.   )
  55. )
  56. (IF (IN #parts 2)
  57.   (
  58.     (SET #alles (+ #alles (+ (GETSIZE #guidefile) (GETSIZE (CAT #guidefile ".info")))))
  59.     (IF (#muster)
  60.       (SET #muster (CAT #muster "|"))
  61.     )
  62.     (SET #muster (CAT #muster #guidefile "|" #guidefile ".info"))
  63.   )
  64. )
  65. (IF (IN #parts 3)
  66.   (
  67.     (SET #alles (+ #alles (+ (GETSIZE #abkfile) (GETSIZE (CAT #abkfile ".info")))))
  68.     (IF (#muster)
  69.       (SET #muster (CAT #muster "|"))
  70.     )
  71.     (SET #muster (CAT #muster #abkfile "|" #abkfile ".info"))
  72.   )
  73. )
  74. (IF (IN #parts 4)
  75.   (
  76.     (SET #alles (+ #alles (+ (GETSIZE #demofile) (GETSIZE (CAT #demofile ".info")))))
  77.     (IF (#muster)
  78.       (SET #muster (CAT #muster "|"))
  79.     )
  80.     (SET #muster (CAT #muster #demofile "|" #demofile ".info"))
  81.   )
  82. )
  83. (IF (IN #parts 5)
  84.   (
  85.     (SET #alles (+ #alles (GETSIZE #keyfile)))
  86.   )
  87. )
  88. (IF (IN #parts 6)
  89.   (
  90.     (SET #alles (+ #alles (+ (GETSIZE #brainfile) (GETSIZE (CAT #brainfile ".info")))))
  91.     (IF (#muster)
  92.       (SET #muster (CAT #muster "|"))
  93.     )
  94.     (SET #muster (CAT #muster #brainfile "|" #brainfile ".info"))
  95.   )
  96. )
  97.  
  98. ;Fortschrittsanzeige auf 0% setzen
  99. (COMPLETE 0)
  100.  
  101. ;Datengröße und freien Plattenplatz anzeigen
  102. (MESSAGE
  103.   "Ausgewähltes Zielverzeichnis:\n"
  104.   @default-dest
  105.   "\n\nVerfügbarer Platz auf dem Datenträger:\n"
  106.   (getdiskspace @default-dest)
  107.   "\n\nBenötigter Platz:\n"
  108.   #alles
  109. )
  110.  
  111. ;Keyfile kopieren, falls angewählt
  112. (IF (IN #parts 5)
  113.   (
  114.     (COPYFILES
  115.       (SOURCE #keyfile)
  116.       (DEST "S:")
  117.     )
  118.     (SET #summe (+ #summe (GETSIZE #keyfile)))
  119.     (COMPLETE (/ (* #summe 100) #alles))
  120.   )
  121. )
  122.  
  123. ;restliche ausgewählte Dateien kopieren
  124. (IF (#muster)
  125.   (FOREACH "" (CAT "(" #muster ")")
  126.     (COPYFILES
  127.       (SOURCE @each-name)
  128.       (DEST @default-dest)
  129.     )
  130.     (SET #summe (+ #summe (GETSIZE @each-name)))
  131.     (COMPLETE (/ (* #summe 100) #alles))
  132.   )
  133. )
  134.  
  135. ;fertig
  136. (EXIT "Viel Spaß beim Rätsellösen wünscht\n\n           Peter Krüger")
  137.